This property returns a MetadataRefinements Collection object representing the parametric refinement options, generated for the current search results.
Read-Only Variant property (MetadataRefinements Collection)
Set FSO = CreateObject("Scripting.FileSystemObject") Set Output = FSO.CreateTextFile("c:\output.txt", True) For Each Refinement in App.ActiveTab.Metadata Output.WriteLine Refinement.Name For I = 0 To Refinement.Count-1 Output.WriteLine Space(4) & Refinement(I).Name Next Next ' Sample Output: ' Department ' HR ' Administration ' Marketing ' Support ' Author ' John Smith ' Fred Jones ' Company ' AMCE Inc ' Random Aerospace